#!/usr/bin/perl -w
#读取about_shenji.file文件的信息
     my $SHENJICONF;
     use constant SHENJI_FILE=>'</var/www/html/upload/about_shenji.conf';
     my %shenji_conf = ();
     #从文件读取数据库信息

     open($SHENJICONF, SHENJI_FILE) or die "can't open \n";
     while(my $line = <$SHENJICONF>)
     {
         chomp $line;
         (my $name, my $info) = (split /=/, $line)[0,1];
         $shenji_conf{$name} = $info;
         $shenji_conf{$name} =~ s/\s//g;
     }
	
     close $SHENJICONF;
     my $way=$shenji_conf{"way"};
     my $status=$shenji_conf{"status"};
     my $version=$shenji_conf{"version"};
     my $shenjibao=$shenji_conf{"shenjibao"};
	  
	 open($filevar,">/var/www/html/upload/about_shenji.conf")|| die("Could not open file");
	 my $xie_ru="way=$way\n"."status=0"."\n"."version=$version"."\n"."shenjibao=$shenjibao";
	 print $filevar $xie_ru;
	 close $filevar;